﻿Imports System.Data.OleDb

Public Class Institucion
    Private Conexion As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Facultad;Data Source=RAMONS-LAPTOP\SQLEXPRESS")

    Public Sub RegistrarInstitucion(ByVal paramNombre As String, ByVal paramPais As String)

        Dim comando As New OleDb.OleDbCommand() 'Este objeto se encarga de ejecutar consultas sql a la base de datos
        comando.CommandType = CommandType.StoredProcedure 'El comando ejecutará un procedimiento almacenado
        comando.Connection = Me.Conexion 'Indicamos al objeto comando a donde se conectará a través del objeto Conexion

        comando.CommandText = "insertInstitucion" 'El nombre del procedimiento almacenado
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramNombre", paramNombre)) 'Agregamos a la colección de parámetros los parametros que necesita el procedimiento almacenad
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramPais", paramPais))

        Conexion.Open() 'Abrimos la conexion a la base de datos
        comando.ExecuteNonQuery() 'Ejecutamos la consulta SQL. No devuelve valores, ya que es un insert
        MsgBox("Registrado Exitosamente", MsgBoxStyle.OkOnly, "Aviso")
        Conexion.Close() 'Cerramos la conexion
    End Sub


    Public Function obtenerListaInstituciones() As DataSet
        Conexion.Open()
        Dim comando As New OleDbCommand("obtenerInstituciones", Conexion)
        comando.CommandType = CommandType.StoredProcedure
        Dim ds As New DataSet()
        Dim DA As New OleDbDataAdapter(comando)
        DA.Fill(ds, "Instituciones")
        Conexion.Close()
        Return ds
    End Function
End Class
